home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Free 33R1
/
Commodore_Free_Issue_33R1_2009_Commodore_Computer_Club.d64
/
tc list
< prev
next >
Wrap
Text File
|
2023-02-26
|
2KB
|
81 lines
.
Listing of: TallyCounter.prg
10 REM *TALLY COUNTER*
20 SCNCLR:PRINT"{SHIFT-+}black{SHIFT--} TALLY COUNTER"
30 D%=3
35 PRINT"TYPE A NUMBER":PRINT" (BELOW
1 FOR INSTRUCTIONS)"
36 PRINT"NO HIGHER THAN 9"
40 INPUT"HOW MANY THINGS TO MARK";D%
45 IFD%<1THEN300
50 IFD%>9THENPRINT"NOT ENOUGH
MEMORY":GOTO40
60 D1%=48+D% :REM *CHR$ CODE*
70 FORJ=1TOD%:IT%(J)=0
80 INPUT"NAME OF ITEM";IT$(J)
90
PRINT:PRINT"{SHIFT-+}orange{SHIFT--}";IT$(J);"{SHIFT-+}black{SHIFT--}
IS THIS CORRECT Y/N?"
100 GETA$:IFA$=""THEN100
110 IFA$="N"THEN80
120 NEXT J
130 REM *SET TALLY NUMBER*
140 SCNCLR:PRINT" TALLY
COUNTER":PRINT:PRINT
143 PRINT" X TO END":PRINT" (SPACE)
TOGGLE ADD / DELETE":PRINT:PRINT
145 IFX>1THENX=0
150 FORJ=1TOD%
160 PRINT"PRESS ";J;" = ";IT$(J)"
";IT%(J)
170 NEXT J
180 IFX=0THENPRINT"{SHIFT-+}down{SHIFT--}{SHIFT-+}down{SHIFT--} ADD";
185 IFX=1THENPRINT"{SHIFT-+}down{SHIFT--}{SHIFT-+}down{SHIFT--}
DELETE";
190 GETA$:IFA$=""THEN190
200 IFA$="X" THENEND
210 IFA$=" " THENX=X+1:GOTO140
215 IFA$< CHR$(49) ORA$>CHR$(D1%)
THEN190
220 A%=VAL(A$)
230 IFX=0THEN IT%(A%)=IT%(A%)+1
235 IFX=1THEN IT%(A%)=IT%(A%)-1
240 GOTO140
300 REM *INSTRUCTIONS*
310 SCNCLR:PRINT" TALLY COUNTER"
320 PRINT:PRINT"INSTRUCTIONS":PRINT
330 PRINT"DESIGNED TO REPLACE OR
REDUCE THE NEED FOR PEN & PAPER"
340 PRINT" A LINE DOWN REPRESENTED 1
IN A TALLY MARK."
350 PRINT" AFTER FOUR 1S 1111. A LINE
WAS PUT"
360 PRINT"THROUGH THE GROUP
REPRESENTING 5."
370 PRINT"AND THE 1 COUNTS WERE
STARTED AGAIN"
380 PRINT"NEXT TO THE STRUCK 5. AND
SO THE"
390 PRINT"PROCESS CONTINUED.":PRINT
400 PRINT"IN YAPE YOU CAN SAVE WHERE
YOU ARE AT"
410 PRINT"ANY POINT.":PRINT" JUST GO
TO FILE, "
420 PRINT" EMULATOR
SNAPSHOT.":PRINT"A SUB-MENU WILL
APPEAR AND YOU ARE "
430 PRINT"GIVEN THE CHOICE OF A
QUICKSAVE, OR OF"
440 PRINT"GIVING YOUR FILE A NAME OF
YOUR OWN "
450 PRINT"CHOOSING.";:PRINT" TO
RETURN TO LATER WITH THE SAME "
460 PRINT"MENU & PROCESS -USING
LOAD..."
470 PRINT" ";CHR$(18);" ANY KEY
";CHR$(146);"{SHIFT-+}up{SHIFT--}{SHIFT-+}up{SHIFT--}"
480 GETA$:IFA$=""THEN480
490 GOTO10
=====================================